﻿Imports Microsoft.VisualBasic

Public Class mustafa

    Public Function CleanString(base As String) As String
        If Len(base) > 0 Then
            base = Trim(base)
            base = Replace(CStr(base), "'", "")
            base = Replace(CStr(base), """", "")
            base = Replace(CStr(base), "<", "")
            base = Replace(CStr(base), ">", "")
            base = Replace(CStr(base), "=", "")
        End If
        CleanString = base
    End Function

End Class
